home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 2 / Apprentice-Release2.iso / Tools / Languages / Icon 8.1 / mep2 / MemMon 2.0 / Samples / poly1.icn < prev    next >
Encoding:
Text File  |  1990-01-15  |  260 b   |  16 lines  |  [TEXT/PICN]
  1. record complex(i,r)
  2. procedure main()
  3.    s := "abc"
  4.    every 1 to 1000 do {
  5.       list(30)
  6.       t := table()
  7.       set([1,2,3,4,5,6,7,8,9,10])
  8.       every 1 to 10 do {
  9.          +0.0
  10.          cset("a")
  11.          complex()
  12.          t[s[1]]
  13.          }
  14.       }
  15. end
  16.